home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / rlib.zip / RL_FILET.PRG < prev    next >
Text File  |  1993-01-04  |  536b  |  21 lines
  1. * Function: FILETIME
  2. * Author..: Richard Low
  3. * Syntax..: FILETIME( <expC> )
  4. * Returns.: Character time string of <filename> from directory entry.
  5.  
  6. FUNCTION FILETIME
  7. PARAMETERS p_fname
  8.  
  9. IF PCOUNT() = 1
  10.    *-- set up array to hold the file time from ADIR()
  11.    DECLARE f_ftime[1]
  12.  
  13.    *-- call ADIR to check filespec given and fill time array
  14.    IF ADIR( p_fname, '', '', '', f_ftime ) = 1
  15.       *-- return time string if all is well
  16.       RETURN f_ftime[1]
  17.    ENDIF
  18. ENDIF
  19. *-- otherwise, return a null string
  20. RETURN ''
  21.